#!/usr/bin/perl 
open(FILEIN, "p96.fic");
#preparer la sortie html
open(OUT,">frequence.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">";
print OUT "<p align=\"center\" style=\"color:yellow;\"> Analyse par frequence de fichier p96.fic:</p>";
$i=0;
$contenu="";
$nbre_mot=0;
while (my $ligne=<FILEIN>)
{  
    $ligne=~ s/\./ /g;
      $ligne=~ s/,/ /g;
      $ligne=~ s/;/ /g;
      $ligne=~ s/:/ /g;
      $ligne=~ s/\(/ /g;
      $ligne=~ s/\)/ /g;
      $ligne=~ s/-/ /g;
      $ligne=~ s/\// /g;
      $ligne=~ s/!/ /g;
      $ligne=~s/\?/ /g;
      $ligne=~ s/'/\' /g;
      $ligne=~s/</ /g;
      $ligne=~s/>/ /g;
      
      @liste = split (/ /,$ligne);
       for ($j=0; $j<=$#liste-1;$j++)
      {
	 if ( $liste[$j] ne "")
 	   {
	      if($contenu=~/$liste[$j]/g)
  		{
		  print OUT "<p style=\"color:white;\">$liste[$j]</p>";
		  $contenu.=$liste[$j];
		  push(@liste_new, $liste[$j]);
		  $nbre_mot+=1;
  		}
 	    }
      }
}
print OUT "<p style=\"color:white;\"> Nombre des mot different:$nbre_mot</p>";
close (FILEIN);
print OUT "</body></html>";
close(OUT);